home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Include / Libraries / wizard.i < prev    next >
Encoding:
Text File  |  1997-05-07  |  22.5 KB  |  622 lines
  1.  
  2. { Include:            libraries/wizard.h
  3.   Language:           PCQ Pascal
  4.  
  5.   Original C-Version: wizard.h 37.123 (10.05.96)
  6.                       © 1996 HAAGE & PARTNER,  All Rights Reserved
  7.  
  8.   $VER:               1.0 (01.06.96)
  9.  
  10.   Author:             Nils Sjoholm (nils.sjoholm@mailbox.swipnet.se)
  11. }
  12.  
  13. {$I "Include:Exec/Types.i"}
  14. {$I "Include:Exec/Lists.i"}
  15. {$I "Include:Intuition/Intuition.i"}
  16. {$I "Include:Utility/TagItem.i"}
  17. {$I "Include:Libraries/Gadtools.i"}
  18.  
  19.  
  20. CONST WIZARDNAME            = "wizard.library";
  21.  
  22.       WZRD_TEXTPEN          = $8002;
  23.       WZRD_SHINEPEN         = $8003;
  24.       WZRD_SHADOWPEN        = $8004;
  25.       WZRD_FILLPEN          = $8005;
  26.       WZRD_FILLTEXTPEN      = $8006;
  27.       WZRD_BACKGROUNDPEN    = $8007;
  28.       WZRD_HIGHLIGHTTEXTPEN = $8008;
  29.       WZRD_BARDETAILPEN     = $8009;           { OS V39 }
  30.       WZRD_BARBLOCKPEN      = $800A;           { OS V39 }
  31.       WZRD_BARTRIMPEN       = $800B;           { OS V39 }
  32.  
  33.       WZRDFRAME_NONE        = 0;
  34.       WZRDFRAME_ICON        = 1;
  35.       WZRDFRAME_BUTTON      = 2;
  36.       WZRDFRAME_STRING      = 3;
  37.       WZRDFRAME_DOUBLEICON  = 4;
  38.       WZRDFRAME_SICON       = 5;
  39.       WZRDFRAME_SBUTTON     = 6;
  40.       WZRDFRAME_SSTRING     = 7;
  41.       WZRDFRAME_SDOUBLEICON = 8;
  42.  
  43.       WZRDPLACE_LEFT        = $1;
  44.       WZRDPLACE_RIGHT       = $2;
  45.       WZRDPLACE_CENTER      = $10;
  46.  
  47.       WARROW_LEFT           = 0;
  48.       WARROW_RIGHT          = 1;
  49.       WARROW_UP             = 2;
  50.       WARROW_DOWN           = 3;
  51.  
  52.       WGHF_IgnoreOS         = 1;
  53.       WGHF_FullControl      = 2;
  54.  
  55. TYPE
  56.  
  57. { WizardNode ------------------------------------------------------ }
  58.  
  59.  
  60.       WizardNodePtr       = ^WizardNode;
  61.  
  62.       WizardNode            = RECORD
  63.                                Node   : MinNode;
  64.                                Entrys : Byte;
  65.                                Flags  : Byte;
  66.                                Intern : ARRAY [0..38] OF Byte;
  67.                               END;
  68.  
  69. { Standard Node --------------------------------------------------- }
  70. { Diese Node ist für Listviews und Hierarchy                        }
  71.  
  72.      WizardDefaultNodePtr = ^WizardDefaultNode;
  73.  
  74.      WizardDefaultNode      = RECORD
  75.                                WizardNode : WizardNode;
  76.                                Intern : ARRAY [0..24] OF Byte;
  77.                               END;
  78.  
  79. {------------------------------------------------------------------ }
  80.  
  81.      WizardWindowHandlePtr  = ^WizardWindowHandle;
  82.      
  83.      WizardWindowHandle     = RECORD
  84.                                Node              : MinNode;
  85.                                Window            : WindowPtr;
  86.                                MenuStrip         : MenuPtr;
  87.                                DrawInfo          : DrawInfoPtr;
  88.                                VisualInfo        : Address;
  89.                                ScreenTitle       : STRING;
  90.                                SizeImageWidth    : Short;
  91.                                SizeImageHeight   : Short;
  92.                                Objects           : MinList;
  93.                                RootGadget        : GadgetPtr;
  94.                                RootTopGadget     : GadgetPtr;
  95.                                RootLeftGadget    : GadgetPtr;
  96.                                RootBottomGadget  : GadgetPtr;
  97.                                RootRightGadget   : GadgetPtr;
  98.                                UserStruct        : Address;
  99.                               END;
  100.  
  101.      winhaddressPtr         = ^winhaddress;
  102.      winhaddress            = WizardWindowHandlePtr;
  103.  
  104.      WizardNewImagePtr      = ^WizardNewImage;
  105.  
  106.      WizardNewImage         = RECORD
  107.                                Flags       : Short;
  108.                                Name        : Short; { immer auf NULL setzen ! }
  109.                                Width       : Short;
  110.                                Height      : Short;
  111.                                Depth       : Short;
  112.                                Compression : Short;
  113.                                Reserved    : Integer;
  114.                                ColorLength : Integer;
  115.                                ImageLength : Integer;
  116.                               END;
  117.  
  118. CONST WIF_Interleaved       =  4;
  119.       WIFStandard           =  8;
  120.  
  121. { Vimage-Struktur und seine Tags, sowie Kommandos ----------------- }
  122.  
  123. TYPE   WizardVImagePtr      = ^WizardVImage;
  124.  
  125.        WizardVImage         = RECORD
  126.                                Flags     : Short;
  127.                                Counter   : Short;
  128.                                MinWidth  : Short;
  129.                                MinHeight : Short;
  130.                                RelCoords : ^Short;
  131.                               END;
  132.  
  133. CONST WVIF_MinWidth         = 1;
  134.       WVIF_MinHeight        = 2;
  135.       WVIF_AreaInit         = 4;
  136.       WVIF_Recursion        = 8;
  137.  
  138.       WVIB_MinWidth         = 0;
  139.       WVIB_MinHeight        = 1;
  140.       WVIB_AreaInit         = 2;
  141.       WVIB_Recursion        = 3;
  142.  
  143.       WVICMD_END            = 0;
  144.       WVICMD_COLOR          = 1;
  145.       WVICMD_COLOR2         = 2;
  146.       WVICMD_MOVE           = 3;
  147.       WVICMD_DRAW           = 4;
  148.       WVICMD_RECTFILL       = 5;
  149.       WVICMD_WRITEPIXEL     = 6;
  150.       WVICMD_IMAGE          = 7;
  151.       WVICMD_TEXT           = 8;
  152.       WVICMD_SETDRMD        = 9;
  153.       WVICMD_TEXTIMAGE      = 10;
  154.       WVICMD_TEXTMOVE       = 11;
  155.       WVICMD_TAGCOLOR       = 12;
  156.       WVICMD_TEXTPLACE      = 13;
  157.       WVICMD_SETAFPT        = 14;
  158.       WVICMD_SNAPCURSOR     = 15;
  159.       WVICMD_SNAPX          = 16;
  160.       WVICMD_SNAPY          = 17;
  161.       WVICMD_TAGMOVE        = 18;
  162.       WVICMD_TAGIMAGE       = 19;
  163.       WVICMD_BITMAP_TO_RP   = 20;
  164.       WVICMD_FILLBORDER     = 21;
  165.       WVICMD_BEEP           = 22;
  166.       WVICMD_AREAINIT       = 23;
  167.       WVICMD_AREAMOVE       = 24;
  168.       WVICMD_AREADRAW       = 25;
  169.       WVICMD_AREAEND        = 26;
  170.       WVICMD_TAGAREAPTRN    = 27;
  171.  
  172. { Tags der wizard.library ----------------------------------------- }
  173.  
  174.       WZRD_TagDummy         = $80180000;
  175.  
  176.       WVIA_TagDummy         = (WZRD_TagDummy+100);
  177.  
  178.       WVIA_Text             = (WVIA_TagDummy+0);
  179.       WVIA_TextFont         = (WVIA_TagDummy+1);
  180.       WVIA_TextPlace        = (WVIA_TagDummy+2);
  181.       WVIA_TextPen          = (WVIA_TagDummy+3);
  182.       WVIA_TextStyles       = (WVIA_TagDummy+4);
  183.       WVIA_TextHighLights   = (WVIA_TagDummy+5);
  184.       WVIA_TextImages       = (WVIA_TagDummy+6);
  185.  
  186.       WVIA_TagImage         = (WVIA_TagDummy+7);
  187.       WVIA_TagImageCode     = (WVIA_TagDummy+8);
  188.  
  189.       WVIA_ImageCode        = (WVIA_TagDummy+9);
  190.  
  191.       WVIA_Color0           = (WVIA_TagDummy+10);
  192.       WVIA_Color1           = (WVIA_TagDummy+11);
  193.       WVIA_Color2           = (WVIA_TagDummy+12);
  194.       WVIA_Color3           = (WVIA_TagDummy+13);
  195.       WVIA_Color4           = (WVIA_TagDummy+14);
  196.       WVIA_Color5           = (WVIA_TagDummy+15);
  197.       WVIA_Color6           = (WVIA_TagDummy+16);
  198.       WVIA_Color7           = (WVIA_TagDummy+17);
  199.  
  200.       WVIA_TPoint0          = (WVIA_TagDummy+18);
  201.       WVIA_TPoint1          = (WVIA_TagDummy+19);
  202.       WVIA_TPoint2          = (WVIA_TagDummy+20);
  203.       WVIA_TPoint3          = (WVIA_TagDummy+21);
  204.       WVIA_TPoint4          = (WVIA_TagDummy+22);
  205.       WVIA_TPoint5          = (WVIA_TagDummy+23);
  206.       WVIA_TPoint6          = (WVIA_TagDummy+24);
  207.       WVIA_TPoint7          = (WVIA_TagDummy+25);
  208.  
  209.       WVIA_AreaPtrn         = (WVIA_TagDummy+26);
  210.       WVIA_TmpRas           = (WVIA_TagDummy+27);
  211.  
  212.       WVIA_BitMapWidth      = (WVIA_TagDummy+28);
  213.       WVIA_BitMapHeight     = (WVIA_TagDummy+29);
  214.       WVIA_BitMap0          = (WVIA_TagDummy+30);
  215.       WVIA_BitMap1          = (WVIA_TagDummy+31);
  216.       WVIA_BitMap2          = (WVIA_TagDummy+32);
  217.       WVIA_BitMap3          = (WVIA_TagDummy+33);
  218.       WVIA_BitMap4          = (WVIA_TagDummy+34);
  219.       WVIA_BitMap5          = (WVIA_TagDummy+35);
  220.       WVIA_BitMap6          = (WVIA_TagDummy+36);
  221.       WVIA_BitMap7          = (WVIA_TagDummy+37);
  222.  
  223.       WVIA_PureText         = (WVIA_TagDummy+38);
  224.  
  225.       WVIA_TagAreaPtSz      = (WVIA_TagDummy+39);
  226.       WVIA_TagAreaPtrn0     = (WVIA_TagDummy+40);
  227.       WVIA_TagAreaPtrn1     = (WVIA_TagDummy+41);
  228.       WVIA_TagAreaPtrn2     = (WVIA_TagDummy+42);
  229.       WVIA_TagAreaPtrn3     = (WVIA_TagDummy+43);
  230.  
  231. {      Tags für den Aufruf von WZ_OpenSurface();      }
  232.  
  233.       SFH_Locale            = (WZRD_TagDummy+200);
  234.       SFH_Catalog           = (WZRD_TagDummy+201);
  235.       SFH_AutoInit          = (WZRD_TagDummy+202);
  236.  
  237. {      Tags für den Aufruf von WZ_CreateWindowObj();      }
  238.  
  239.       WWH_GadgetArray       = (WZRD_TagDummy+300);
  240.       WWH_GadgetArraySize   = (WZRD_TagDummy+301);
  241.       WWH_PreviousGadget    = (WZRD_TagDummy+302);
  242.       WWH_StringHook        = (WZRD_TagDummy+303);
  243.       WWH_StackSize         = (WZRD_TagDummy+304); { für WZ_AllocWindowHandle }
  244.  
  245. {      Classes in V1.0 }
  246.  
  247.       WCLASS_GROUPEND       = 0;
  248.  
  249.       WCLASS_LAYOUT         = 0;
  250.       WCLASS_HGROUP         = 1;
  251.       WCLASS_VGROUP         = 2;
  252.       WCLASS_BUTTON         = 3;
  253.       WCLASS_STRING         = 4;
  254.       WCLASS_LABEL          = 5;
  255.       WCLASS_CHECKBOX       = 6;
  256.       WCLASS_MX             = 7;
  257.       WCLASS_INTEGER        = 8;
  258.       WCLASS_HSCROLLER      = 9;
  259.       WCLASS_VSCROLLER      = 10;
  260.       WCLASS_ARROW          = 11;
  261.       WCLASS_LISTVIEW       = 12;
  262.       WCLASS_MULTILISTVIEW  = 13;
  263.       WCLASS_TOGGLE         = 14;
  264.       WCLASS_LINE           = 15;
  265.       WCLASS_COLORFIELD     = 16;
  266.       WCLASS_ARGS           = 17;
  267.       WCLASS_GAUGE          = 18;
  268.       WCLASS_CYCLE          = 19;
  269.       WCLASS_VECTORBUTTON   = 20;
  270.       WCLASS_DATE           = 21;
  271.       WCLASS_SPACE          = 22;
  272.       WCLASS_IMAGE          = 23;
  273.       WCLASS_IMAGEBUTTON    = 24;
  274.       WCLASS_IMAGETOGGLE    = 25;
  275.       WCLASS_IMAGEPOPUP     = 26;
  276.       WCLASS_TEXTPOPUP      = 27;
  277.       WCLASS_PALETTE        = 28;
  278.       WCLASS_VECTORPOPUP    = 29;
  279.       WCLASS_HIERARCHY      = 30;
  280.       WCLASS_HSLIDER        = 31;
  281.       WCLASS_VSLIDER        = 32;
  282.       WCLASS_LAST           = 33;
  283.  
  284. {      Flags, die Sie in dem Tag WGA_Flags angeben können }
  285.  
  286.       WGF_GadgetHelp        = 2;      {(1<<1)}
  287.       WGF_Disabled          = 256;    {(1<<8)}
  288.       WGF_Immediate         = 4;      {(1<<2)}
  289.       WGF_KeyControl        = 512;    {(1<<9)}
  290.       WGRPF_EqualSize       = 32768;  {(1<<15)}
  291.       WGRPF_DockMode        = 16384;  {(1<<14)}
  292.       WSPCF_Transparent     = 32768;  {(1<<15)}
  293.       WTGF_SimpleMode       = 32768;  {(1<<15)}
  294.       WLVF_ReadOnly         = 32768;  {(1<<15)}
  295.       WLVF_DoubleClicks     = 16384;  {(1<<14)}
  296.       WSCF_NewLook          = 32768;  {(1<<15)}
  297.       WITF_SimpleMode       = 32768;  {(1<<15)}
  298.       WIPF_NewLook          = 32768;  {(1<<15)}
  299.       WTPF_NewLook          = 32768;  {(1<<15)}
  300.       WVPF_NewLook          = 32768;  {(1<<15)}
  301.       WSLF_NewLook          = 32768;  {(1<<15)}
  302.  
  303. {      alle folgenden Tags sind Universal-Tags für alle Wizardgadgets }
  304.  
  305.       WGA_Label             = (WZRD_TagDummy+400);
  306.       WGA_Label2            = (WZRD_TagDummy+401);
  307.       WGA_TextFont          = (WZRD_TagDummy+402);
  308.       WGA_Flags             = (WZRD_TagDummy+403);
  309.       WGA_Priority          = (WZRD_TagDummy+404);
  310.       WGA_RelHeight         = (WZRD_TagDummy+405);
  311.       WGA_MinWidth          = (WZRD_TagDummy+406);
  312.       WGA_MinHeight         = (WZRD_TagDummy+407);
  313.       WGA_Link              = (WZRD_TagDummy+408);
  314.       WGA_LinkData          = (WZRD_TagDummy+409);
  315.       WGA_HelpText          = (WZRD_TagDummy+410);
  316.       WGA_Config            = (WZRD_TagDummy+411);
  317.       WGA_NewImage          = (WZRD_TagDummy+412);
  318.       WGA_SelNewImage       = (WZRD_TagDummy+413);
  319.       WGA_Group             = (WZRD_TagDummy+414);
  320.       WGA_GroupPage         = (WZRD_TagDummy+415);
  321.       WGA_Locale            = (WZRD_TagDummy+416);
  322.       WGA_Screen            = (WZRD_TagDummy+417);
  323.       WGA_Bounds            = (WZRD_TagDummy+418);
  324.  
  325. {      Notify - Tags }
  326.  
  327.       WNOTIFYA_Type         = (WZRD_TagDummy+450);
  328.  
  329. {      Class-Tags }
  330.  
  331.       WGROUPA_ActivePage    = (WZRD_TagDummy+500);
  332.       WGROUPA_MaxPage       = (WZRD_TagDummy+501);
  333.       WGROUPA_HBorder       = (WZRD_TagDummy+502);
  334.       WGROUPA_VBorder       = (WZRD_TagDummy+503);
  335.       WGROUPA_BHOffset      = (WZRD_TagDummy+504);
  336.       WGROUPA_BVOffset      = (WZRD_TagDummy+505);
  337.       WGROUPA_Space         = (WZRD_TagDummy+506);
  338.       WGROUPA_VarSpace      = (WZRD_TagDummy+507);
  339.       WGROUPA_FrameType     = (WZRD_TagDummy+508);
  340.  
  341.       WSTRINGA_MaxChars     = (WZRD_TagDummy+509);
  342.       WSTRINGA_String       = (WZRD_TagDummy+510);
  343.  
  344.       WCHECKBOXA_Checked    = (WZRD_TagDummy+511);
  345.  
  346.       WMXA_Active           = (WZRD_TagDummy+512);
  347.       WGROUPA_HighLights    = (WZRD_TagDummy+513);
  348.       WGROUPA_HighlightPen  = (WZRD_TagDummy+514);
  349.  
  350.       WLABELA_FrameType     = (WZRD_TagDummy+515);
  351.       WLABELA_Space         = (WZRD_TagDummy+516);
  352.       WLABELA_BGPen         = (WZRD_TagDummy+517);
  353.       WLABELA_TextPlace     = (WZRD_TagDummy+518);
  354.       WLABELA_Lines         = (WZRD_TagDummy+519);
  355.  
  356.       WINTEGERA_Long        = (WZRD_TagDummy+520);
  357.       WINTEGERA_MinLong     = (WZRD_TagDummy+521);
  358.       WINTEGERA_MaxLong     = (WZRD_TagDummy+522);
  359.  
  360.       WSCROLLERA_Top        = (WZRD_TagDummy+523);
  361.       WSCROLLERA_Visible    = (WZRD_TagDummy+524);
  362.       WSCROLLERA_Total      = (WZRD_TagDummy+525);
  363.  
  364.       WSTRINGA_Justification  = (WZRD_TagDummy+526);
  365.       WINTEGERA_Justification = (WZRD_TagDummy+527);
  366.  
  367.       WARROWA_Type          = (WZRD_TagDummy+528);
  368.  
  369.       WLISTVIEWA_Top         = (WZRD_TagDummy+534);
  370.       WLISTVIEWA_Selected    = (WZRD_TagDummy+535);
  371.       WLISTVIEWA_List        = (WZRD_TagDummy+536);
  372.       WLISTVIEWA_Visible     = (WZRD_TagDummy+538);
  373.       WLISTVIEWA_DoubleClick = (WZRD_TagDummy+539);
  374.  
  375.       WTOGGLEA_Checked      = (WZRD_TagDummy+540);
  376.  
  377.       WLINEA_Type           = (WZRD_TagDummy+541);
  378.       WLINEA_Label          = (WZRD_TagDummy+542);
  379.  
  380.       WCOLORFIELDA_Pen      = (WZRD_TagDummy+543);
  381.  
  382.       WARGSA_TextPlace      = (WZRD_TagDummy+544);
  383.       WARGSA_FrameType      = (WZRD_TagDummy+545);
  384.       WARGSA_Arg0           = (WZRD_TagDummy+546);
  385.       WARGSA_Arg1           = (WZRD_TagDummy+547);
  386.       WARGSA_Arg2           = (WZRD_TagDummy+548);
  387.       WARGSA_Arg3           = (WZRD_TagDummy+549);
  388.       WARGSA_Arg4           = (WZRD_TagDummy+550);
  389.       WARGSA_Arg5           = (WZRD_TagDummy+551);
  390.       WARGSA_Arg6           = (WZRD_TagDummy+552);
  391.       WARGSA_Arg7           = (WZRD_TagDummy+553);
  392.       WARGSA_Arg8           = (WZRD_TagDummy+554);
  393.       WARGSA_Arg9           = (WZRD_TagDummy+555);
  394.  
  395.       WGAUGEA_Total         = (WZRD_TagDummy+556);
  396.       WGAUGEA_Current       = (WZRD_TagDummy+557);
  397.       WGAUGEA_Format        = (WZRD_TagDummy+558);
  398.  
  399.       WCYCLEA_Active        = (WZRD_TagDummy+559);
  400.       WCYCLEA_Labels        = (WZRD_TagDummy+560);
  401.  
  402.       WARROWA_Step          = (WZRD_TagDummy+561);
  403.  
  404.       WVECTORBUTTONA_Type   = (WZRD_TagDummy+562);
  405.  
  406.       WDATEA_Day            = (WZRD_TagDummy+563);
  407.       WDATEA_Month          = (WZRD_TagDummy+564);
  408.       WDATEA_Year           = (WZRD_TagDummy+565);
  409.  
  410.       WARGSA_Format         = (WZRD_TagDummy+566);
  411.  
  412.       WLABELA_HighlightPen  = (WZRD_TagDummy+567);
  413.  
  414.       WBUTTONA_Label        = (WZRD_TagDummy+568);
  415.  
  416.       WLABELA_HighLights    = (WZRD_TagDummy+569);
  417.       WLABELA_Label         = (WZRD_TagDummy+570);
  418.  
  419.       WIMAGEA_BGPen         = (WZRD_TagDummy+571);
  420.       WIMAGEA_FrameType     = (WZRD_TagDummy+572);
  421.       WIMAGEA_HBorder       = (WZRD_TagDummy+573);
  422.       WIMAGEA_VBorder       = (WZRD_TagDummy+574);
  423.       WIMAGEA_NewImage      = (WZRD_TagDummy+575);
  424.  
  425.       WIMAGEBUTTONA_BGPen       = (WZRD_TagDummy+576);
  426.       WIMAGEBUTTONA_SelBGPen    = (WZRD_TagDummy+577);
  427.       WIMAGEBUTTONA_FrameType   = (WZRD_TagDummy+578);
  428.       WIMAGEBUTTONA_HBorder     = (WZRD_TagDummy+579);
  429.       WIMAGEBUTTONA_VBorder     = (WZRD_TagDummy+580);
  430.       WIMAGEBUTTONA_NewImage    = (WZRD_TagDummy+581);
  431.       WIMAGEBUTTONA_SelNewImage = (WZRD_TagDummy+582);
  432.  
  433.       WIMAGETOGGLEA_BGPen       = (WZRD_TagDummy+583);
  434.       WIMAGETOGGLEA_SelBGPen    = (WZRD_TagDummy+584);
  435.       WIMAGETOGGLEA_FrameType   = (WZRD_TagDummy+585);
  436.       WIMAGETOGGLEA_HBorder     = (WZRD_TagDummy+586);
  437.       WIMAGETOGGLEA_VBorder     = (WZRD_TagDummy+587);
  438.       WIMAGETOGGLEA_NewImage    = (WZRD_TagDummy+588);
  439.       WIMAGETOGGLEA_SelNewImage = (WZRD_TagDummy+589);
  440.       WIMAGETOGGLEA_Checked     = (WZRD_TagDummy+590);
  441.  
  442.       WSTRINGA_Hook             = (WZRD_TagDummy+591);
  443.  
  444.       WIMAGEPOPUPA_BGPen     = (WZRD_TagDummy+593);
  445.       WIMAGEPOPUPA_FrameType = (WZRD_TagDummy+594);
  446.       WIMAGEPOPUPA_HBorder   = (WZRD_TagDummy+595);
  447.       WIMAGEPOPUPA_VBorder   = (WZRD_TagDummy+596);
  448.       WIMAGEPOPUPA_TextPlace = (WZRD_TagDummy+597);
  449.       WIMAGEPOPUPA_NewImage  = (WZRD_TagDummy+598);
  450.       WIMAGEPOPUPA_Labels    = (WZRD_TagDummy+599);
  451.       WIMAGEPOPUPA_Selected  = (WZRD_TagDummy+600);
  452.  
  453.       WTEXTPOPUPA_TextPlace = (WZRD_TagDummy+601);
  454.       WTEXTPOPUPA_Labels    = (WZRD_TagDummy+602);
  455.       WTEXTPOPUPA_Selected  = (WZRD_TagDummy+603);
  456.       WTEXTPOPUPA_Name      = (WZRD_TagDummy+604);
  457.  
  458.       WPALETTEA_Colors      = (WZRD_TagDummy+605);
  459.       WPALETTEA_Selected    = (WZRD_TagDummy+606);
  460.       WPALETTEA_Offset      = (WZRD_TagDummy+607);
  461.  
  462.       WGROUPA_BGPen          = (WZRD_TagDummy+608);
  463.       WGROUPA_DockMinVisible = (WZRD_TagDummy+609);
  464.       WGROUPA_Styles         = (WZRD_TagDummy+610);
  465.  
  466.       WLABELA_Styles          = (WZRD_TagDummy+611);
  467.  
  468.       WVECTORPOPUPA_Type      = (WZRD_TagDummy+612);
  469.       WVECTORPOPUPA_Labels    = (WZRD_TagDummy+613);
  470.       WVECTORPOPUPA_TextPlace = (WZRD_TagDummy+614);
  471.       WVECTORPOPUPA_Selected  = (WZRD_TagDummy+615);
  472.  
  473.       WHIERARCHYA_ImageType   = (WZRD_TagDummy+617);
  474.       WHIERARCHYA_ImageWidth  = (WZRD_TagDummy+618);
  475.       WHIERARCHYA_Top         = (WZRD_TagDummy+619);
  476.       WHIERARCHYA_List        = (WZRD_TagDummy+620);
  477.       WHIERARCHYA_Selected    = (WZRD_TagDummy+621);
  478.       WHIERARCHYA_Visible     = (WZRD_TagDummy+622);
  479.       WHIERARCHYA_DoubleClick = (WZRD_TagDummy+623);
  480.  
  481.       WSLIDERA_Min            = (WZRD_TagDummy+627);
  482.       WSLIDERA_Max            = (WZRD_TagDummy+628);
  483.       WSLIDERA_Level          = (WZRD_TagDummy+629);
  484.  
  485.       WTOGGLEA_Label          = (WZRD_TagDummy+630);
  486.  
  487.       WLAYOUTA_RootGadget     = (WZRD_TagDummy+631);
  488.       WLAYOUTA_Type           = (WZRD_TagDummy+632);
  489.       WLAYOUTA_BorderLeft     = (WZRD_TagDummy+633);
  490.       WLAYOUTA_BorderRight    = (WZRD_TagDummy+634);
  491.       WLAYOUTA_BorderTop      = (WZRD_TagDummy+635);
  492.       WLAYOUTA_BorderBottom   = (WZRD_TagDummy+636);
  493.       WLAYOUTA_StackSwap      = (WZRD_TagDummy+637);
  494.  
  495.       WARGSA_TextPen          = (WZRD_TagDummy+638);
  496.       WARGSA_BackgroundPen    = (WZRD_TagDummy+639);
  497.  
  498.  
  499. {      Tags für WZ_InitNode();      }
  500.  
  501.       WNODEA_Flags            = (WZRD_TagDummy+1000);
  502.  
  503.       WNF_SELECTED            = 1;   {(1<<0)  Node ist selektiert, MultiListView  }
  504.       WNF_TREE                = 32;  {(1<<5)  Das ist eine Node eines Baumes      }
  505.       WNF_AUTOMATIC           = 64;  {(1<<6)  Baumkontrolle geht an BOOPSI-Object }
  506.       WNF_VISIBLE             = 128; {(1<<7)  Baum dieser Node wird dargestellt   }
  507.  
  508. {      Tags für WZ_InitNodeEntry();      }
  509.  
  510.       WENTRYA_Type             = (WZRD_TagDummy+1100);
  511.  
  512.       WENTRYA_TextPen           = (WZRD_TagDummy+1101);
  513.       WENTRYA_TextSPen          = (WZRD_TagDummy+1102);
  514.       WENTRYA_TextStyle         = (WZRD_TagDummy+1103);
  515.       WENTRYA_TextSStyle        = (WZRD_TagDummy+1104);
  516.       WENTRYA_TextString        = (WZRD_TagDummy+1105);
  517.       WENTRYA_TreeParentNode    = (WZRD_TagDummy+1106);
  518.       WENTRYA_TreeChilds        = (WZRD_TagDummy+1107);
  519.       WENTRYA_TreeString        = (WZRD_TagDummy+1108);
  520.       WENTRYA_TreePen           = (WZRD_TagDummy+1109);       { V 38 }
  521.       WENTRYA_TreeSPen          = (WZRD_TagDummy+1110);       { V 38 }
  522.       WENTRYA_TreeStyle         = (WZRD_TagDummy+1111);       { V 38 }
  523.       WENTRYA_TreeSStyle        = (WZRD_TagDummy+1112);       { V 38 }
  524.       WENTRYA_TextFont          = (WZRD_TagDummy+1113);       { V 38 }
  525.       WENTRYA_TextJustification = (WZRD_TagDummy+1114);       { V 38 }
  526.       WENTRYA_TreeFont          = (WZRD_TagDummy+1115);       { V 38 }
  527.  
  528.       WNE_TEXT                  = 1;
  529.       WNE_TREE                  = 3;
  530.  
  531. {$I "Include:Libraries/WizardBaseVar.i"}
  532.  
  533. FUNCTION WZ_OpenSurfaceA(name : STRING; memadr : Address; tags : TagItemPtr): Address;
  534. EXTERNAL;
  535.  
  536. PROCEDURE WZ_CloseSurface(surface : Address);
  537. EXTERNAL;
  538.  
  539. FUNCTION WZ_AllocWindowHandleA(scr : ScreenPtr; usersize : Integer; surface : Address;
  540.                             tags : TagItemPtr): WizardWindowHandlePtr;
  541. EXTERNAL;
  542.  
  543. FUNCTION WZ_CreateWindowObjA(winhandle : WizardWindowHandlePtr;
  544.                              id : Integer; tags : TagItemPtr): NewWindowPtr;
  545. EXTERNAL;
  546.  
  547. PROCEDURE WZ_CloseWindow(winhandle : WizardWindowHandlePtr);
  548. EXTERNAL;
  549.  
  550. FUNCTION WZ_OpenWindowA(winhandle : WizardWindowhandlePtr; newwin : NewWindowPtr;
  551.                         tags : TagItemPtr): WindowPtr;
  552. EXTERNAL;
  553.  
  554. PROCEDURE WZ_FreeWindowHandle(winhandle : WizardWindowHandlePtr);
  555. EXTERNAL;
  556.  
  557. PROCEDURE WZ_LockWindow(winhandle : WizardWindowHandlePtr);
  558. EXTERNAL;
  559.  
  560. FUNCTION WZ_UnlockWindow(winhandle : WizardWindowHandlePtr): Integer;
  561. EXTERNAL;
  562.  
  563. PROCEDURE WZ_LockWindows(surface : Address);
  564. EXTERNAL;
  565.  
  566. PROCEDURE WZ_UnlockWindows(surface : Address);
  567. EXTERNAL;
  568.  
  569. FUNCTION WZ_GadgetHelp(winhandle : WizardWindowHandlePtr; iaddress : Address): STRING;
  570. EXTERNAL;
  571.  
  572. FUNCTION WZ_GadgetConfig(winhandle : WizardWindowHandlePtr; gad : GadgetPtr): STRING;
  573. EXTERNAL;
  574.  
  575. FUNCTION WZ_MenuHelp(winhandle : WizardWindowHandlePtr; code : Integer): STRING;
  576. EXTERNAL;
  577.  
  578. FUNCTION WZ_MenuConfig(winhandle : WizardWindowHandlePtr; code : Integer): STRING;
  579. EXTERNAL;
  580.  
  581. FUNCTION WZ_InitEasyStruct(surface : Address; easy : EasyStructPtr; id, size : Integer): EasyStructPtr;
  582. EXTERNAL;
  583.  
  584. FUNCTION WZ_SnapShotA(surface : Address; tags : TagItemPtr): BOOL;
  585. EXTERNAL;
  586.  
  587. FUNCTION WZ_GadgetKey(winhandle : WizardWindowHandlePtr; code, qualifier : Integer;
  588.                        tags : TagItemPtr): BOOL;
  589. EXTERNAL;
  590.  
  591. FUNCTION WZ_DrawVImageA(vimage : WizardVImagePtr; x, y, w, h, ntype : Short;
  592.                            rp : RastPortPtr; dri : DrawInfoPtr; tags : TagItemPtr): BOOL;
  593. EXTERNAL;
  594.  
  595. FUNCTION WZ_EasyRequestArgs(surface : Address; win : WindowPtr; id : Integer; args : Address): Integer;
  596. EXTERNAL;
  597.  
  598. FUNCTION WZ_GetNode(list : MinListPtr; number : Integer): WizardNodePtr;
  599. EXTERNAL;
  600.  
  601. FUNCTION WZ_ListCount(list : MinListPtr): Integer;
  602. EXTERNAL;
  603.  
  604. FUNCTION WZ_NewObjectA(surface : Address; Class : Integer; tags : TagItemPtr): GadgetPtr;
  605. EXTERNAL;
  606.  
  607. FUNCTION WZ_GadgetHelpMsg(winhandle : WizardWindowHandlePtr; winaddress : winhaddressPtr;
  608.                           IAddress : Address; MouseX, MouseY, flags: Short): BOOL;
  609. EXTERNAL;
  610.  
  611. FUNCTION WZ_ObjectID(surface : Address; id : Address; name : STRING): BOOL;
  612. EXTERNAL;
  613.  
  614. PROCEDURE WZ_InitNodeA(wnode : WizardNodePtr; entrys : Integer; tags : TagItemPtr);
  615. EXTERNAL;
  616.  
  617. PROCEDURE WZ_InitNodeEntryA(wnode : WizardNodePtr; entry : Integer; tags : TagItemPtr);
  618. EXTERNAL;
  619.  
  620.  
  621.  
  622.